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Program FIG 
<Markup language> 

<REM — Imports the file "datasource.inc" which creates variable "datasource" which is 
used to tell markup language datasource to connect to. — > 

<INCLUDENAME="database\datasource.inc"> 

<REM- In case a database or other type of error occurs, this display the error message. ■ 
-- > 

<ERROR> 

<FONT FACE='Verdana, Arial" SIZE="+1"><B>An Error Has Occurred</B></FONT><P> <FONT 
FACE='Verdana, Arial" SIZE="-1"><B>Error Message = :i_errortext </B></FONT><P> 
<FONT FACE='Verdana, Arial" SIZE="-1"><B>database Error = 
:i_databaseerrortext</B></FONT><P> 

<FONT FACE='Verdana, Arial" SIZE="-1"><B>database Error = ijatabaseerrorstmt 

</B></FONT><P> 

</ERROR> 

<REM — Begin normal markup language here — > 

<markup language> 

<HEAD> 

<TITLE>Ticketing & Reservation System </TITLE> 
</HEAD> 

<BODY BACKGROUND="images/background.jpg" TEXT='*000000" LINK='*006666" 

VLINK='^006666"> 

<CENTER> 

<IMG SRC="images/masthead_concerts.gif' HEIGHT=60 WIDTH=280><P> 
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<FONT FACE="Verdana,Arial". SIZE=-1><B>To begin reserving your seat(s), please select 
the concert date/time you wish to attend next to the performer you want to 
see:</B></FONT> 

<TABLE BORDER=0 CELLSPACING=5 CELLPADDING=5> 



<REM — performing artists and their performances are listed. — > 
<REM— Part of the return from the query are the links that will — > 
<REM — take you to the next step of the reservation. — > 

<database DBNAME=":datasource" 

database="SELECT id, name, picture, sequence 

FROM category 

WHERE active=1 ANDparent=-1 
ORDER BY sequence" 
ALIAS="concert"> 
<databaseFETCH ALIAS="concert"> 
<WHILE NOTALIAS=i_databaseempty> 
<TR> 

<T0C0LSPAN=2> 

<FONT FACE='Verdana,Arial" SIZE=+1><B>:concert_name</B></FONT> 

</TD></TR><TR><TDVALIGN="top"> 

<img src=imagesLconcert_picture align=top border="1"> 

</TD><TD> 

<Markup language DBNAME=":datasource" 



<REM — Begin database query to retrieve all performances that is 
<REM — currently available. Will loop until all available 



— > 



---> 



database-'SELECT id, name, date, time 



FROM category 

WHERE active=1 AND parent=rconcert_id 



FIG. 5 



ORDER BY date, time' 



(CONT.) 



OUTPUT="<FONT FACE='Verdana,Arial" SIZE=-1><B> 
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<AHREF='Reserve1.ihtml?&icl=;1'>:2</A> FIG. 5 

</B></FONT><p>"> (CONT.) 
</TD></TR><TR><TDC0LSPAN=2><HR></TD></TR> 
<databaseFETCH ALIAS="concert"> 
</WHILEALIAS=Ldatabaseempty> 
</databaseALIAS="concert"> 
<'TABLE> 
</BODY> 

</markup language> 
processing then passes to: 
<Markuplanguage> 

<REM— Imports the file "datasource.inc" which creates the — > 

<REM — variable "datasource" which is used to tell IVIarl<up language which — > 

<REM — database datasource to connect to. — > 

<INCLUDE NAM E="database\datasource.inc"> 

<REM In case a database or other type of error occurs, this will display the error message. > 
<ERROR> 

<F0NTFACE='Verdana,Arial"SIZE="+1"><B>An Error Has Occurred</B></FONT><P> 
<FONT FACE='Verdana,Arial" SIZE="-1"><B>Error Message = 
:i_errortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:idatabaseerrortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:i_databaseerrorstmt</B></FONT><P> 

</ERROR> 

<REM — Begin normal markup language here — > 

<markup language> 

<HEAD> 

<TITLE>Ticketing & Reservation System - Select Seat(s)</TITLE> 
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</HEAD> (CONT.) 

<REM — All seats clicked will pass its information to a input box, "newseats". When done, 

the information will be passed to "process.ihtml" and be processed by "reserve2.ihtml". — > 

<REM — This code allows the ability to select multiple seats before proceeding to the next 

step of reservation process. Other features include listing the selected seats in the 

"number" text box to show the seats that has been clicked. This script also alters the button 

text to be grammatically correct. — > 

<SCRIPTLANGUAGE="JavaScript"> 

<f-- 

function selectseat(idnum, seatnum) 
{ 

reserved = document, seats, number, value; 
if (reserved =='"') 

{ 

document, seats, newseats, value = "<Markup language DBNAME=:"+"datasource 
database='INSERT INTO basket (custid, pid, qty) VALUES (:"+"custid, "+idnurn+", 
1)'><database DBNAME=:"+"datasource database=' SELECT cost FROM products WHERE 
id="+idnum+"'><databaseFETCH><iEQNAME='ticketprice'VALUE=:"+"1></database><iEQ 
NAME='total' VALUE=<iEVAL EXPR=':Vticketprice + :"+'total' PREC='2'»<Markup 
language DBNAM E=:"+" datasource database- INSERT INTO orderdetail (pid, aid, qty, sell) 
VALUES ("+idnum+", :"+"oid, 1, :"+"ticketprice)'>"; 
document.seats.number.value = seatnum; 
document, seats, buttonl. value = "Reserve Seat"; 
document.seats.button2.value = "Clear Choice"; 

} 

else 
{ 

document, seats. newseats. value += "<Markup language DBNAM E=:"+"datasource 
database='INSERT INTO basket (custid, pid, qty) VALUES (:Vcustid, "+idnum+", 
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1)'><database DBNAME=:"+"datasource database='SELECT cost FROM products WHERE 
id="idnum+"'><databaseFETCH><iEQNAME='ticketprice'VALUE=:"+"1></database><IEQ 
NAME='totar VALUE=<iEVAL EXPR=':"+"ticketprice + :"+"total' PREC='2'»<Markup 
language DBNAME=:"+"datasource database=' INSERT INTO orderdetail (pid, old, qty, sell) 
VALUES ("+idnum+", :"+"oid, 1, :"+1icketprice)'>"; 
document.seats.number. value = reserved+", "+seatnum; 
document, seats, button 1. value = "Reserve Seats"; 
document.seats.button2.value = "Clear Choices"; 

} 
} 

function clear() 
{ 

document.seats.newseats.value = '"'; 
} 

//-■> 

</SCRIPT> 

<BODY BACKGROUND="images/background.jpg" TEXT="#000000" LINK='^006666" 
VLINK='W006666"> 

<REM — Begin database query to retrieve the last id number from table "orderdetail" for the 
purpose of creating a new instance of the stage image whenever a new order has occurred. 
This will prevent the browser from displaying an old floor image from its cache as a different 
image name is called every time the file is run, — > 
<database DBNAME=":datasource" 

database="SELECT max(id) 

FROM orderdetail"> 

<databaseFETCH> 

<iEQNAME=1magenum"VALUE=:1> 

<databaseFETCH> FIG. 5 

</database> (CONT.) 
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<iEQNAME="imagetype"VALUE=",jpg"> 
<CENTER> 

<TABLE BGCOLOR=40000001 BORDER=0 CELLPADDING=5 CELLSPACING=0 

WIDTH=500> 

<TR><TD><CENTER> 

<FONT FACE='Verdana,Arial"SIZE=+1 COLOR='#FFFFFF'><B> 

Concert Reservation System 

</B></FONT> 

</CENTER> 

</TD></TR></TABLE></CENTER><p> 

<REM - Loads the core image that will be dynamically altered for use as the image map, - > 
<ilMAGEFROM Fl LE NAM E="stage" FILENAM E="images/stage.jpg" TYPE="jpeg"> 
<MAP NAME="stage"BORDER=0> 

<REM — Begin database query to retrieve all seat information for the image map 
"stage". Will loop until all available seat information for this particular performance is listed. — > 
<REM — The return query will be used only if the "active" attribute of that particular seat is 
marked "true" or"!". -> 

<REM — If active, the seat's information, including image map coordinates will be displayed. 
Otherwise, the seat on the image map will be x'd out according to the x and y coordinates 
associated with it. — > 
<database DBNAME=":datasource" 

database="SELECT id, active, x, y, shape, corrds, name, mouseout, mouseoverl, 
mouseover2, mouseovers 

FROM products 

WHERE catid=:id"> 

<databaseFETCH> 

<iWHILENOTALIAS=i_databaseempty> 

<iEQNAME="active"VALUE=:2> FIG. 5 

<iCASE ALIAS="active" VALUE=1 > (CONT.) 
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<AREA SHAPE=":5" C00RDS=":6" HREF="javascript:selectseat(:1 ;:7')" ALT="Seat # :7" 
OnMouseOut=:8 OnMouseOver=:9 :7 :10 :7 :11 > 

</iCASEALIAS="active"> 

<iCASEALIAS="active"VALUE=0> 

<ilMAGETEXT NAME="stage"TEXT="X"X=:3 Y=:4 COLOR="red"> 

</iCASEALIAS="active"> 

<databaseFETCH> 

</iWH I LE ALI AS=i_clatabaseem pty> 
</database> 
</MAP> 
<CENTER> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B> 
Click on the seat you wish to reserve. 
</B></FONT> 

<TABLEB0RDER=1 CELLPADDING=0 CELLSPACING=0> 
<TR><TD> 

<REIVI — Converts the dynamically generated image, "stage", into a web friendly image type - 
"jpeg". -> 

<ilMAGEWRITE NAME="stage"FILENAME-'images/ch_stage-:id-:imagenum:"imagetype" 
TYPE="jpeg"QUALITY="30"> 

<REM — Deletes the temporary image "stage" as it is no longer needed. — > 
<ilMAGEDESTROYNAME="stage"> 

<IMG SRC="images/legend,jpg" BORDER=0 HEIGHT=20 WIDTH=584><BR> 

<IMG SRC-'images/ch_stage-:id-imagenum:imagetype" BORDER=0 USEMAP="#stage" 

HEIGHT=315WIDTH=584> 

</CENTER> 

</TD></TR></TABLE> 

<F0NTFACE='Verdana,Arial'SIZE=-1><B> FIG. 5 

An "X" denotes a seat that has already been taken. (CONT.) 
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</B></FONT> 

<FORM NAME="seats" ACTION="process.ihtml" METHOD="post"> 
<CENTER> 

<TABLE BGCOLOR='#000000' BORDER=0 CELLPADDING=0 CELLSPACING=0> 
<TR><TD> 

<TABLEBGCOLOR='#FFFFFF' B0RDER=0CELLPADDING=5 CELLSPACING=1> 

<TR><TD><CENTER> 

<FONT FACE='Verdana,Ariar SIZE=-1><B> 

Your mouse is over seat#: <INPUT TYPE="text" NAME="seatnum" SIZE=5> 

</B></FONT></CENTER> 

</TD></TR><TR><TD><CENTER> 

<FONT FACE='Verdana,Ariar SIZE=-1><B> 

Selected Seats:<BR><INPUTTYPE=1ext" NAME="number"SIZE=40> 

<BR> 

<INPUTTYPE="hidden" NAME="newseats" SIZE=50> 

<INPUTTYPE="submit"NAME="button1"VALUE="ReserveSeat"> <INPUT 

TYPE="reset" NAM E="button2" VALUE="Clear Choice" onClick="clear()"> 

</B></FONT> 

</CENTER> 

</TD></TR></TABLE></TD></TR></TABLE></CENTER> 
</FORM></CENTER></BODY> 
</marl<up language> 
which then passes to a template: 
<Markup language> 

<REM — Imports the file "datasource.inc" which creates the variable "datasource" which is 
used to tell Markup language which ODBC datasource to connect to. 
<ilNCLUDENAME="database\datasource.inc"> 

<REM — In case a database or other type of error occurs, this will display the error 
message. -> FIG 5 

(CONT.) 
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<ERROR> 

<F0NTFACE='Verdana,Arial"SIZE="+1"><B>An Error Has Occurred</B></FONT><P> 
<FONT FACE='Verdana,Arial" SIZE="-1"><B>Error Message = 
:i_errortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:i_databaseerrortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1 "><B>database Error = 

:i_databaseerrorstmt</B></FONT><P> 

</ERROR> 

<REM— Copy a preformatted file, "empty.ihtml" into a new file, — > 

<REM - "reserve2.ihtnil". -> 

<iCOPYFILE SRC="empty,ihtml" DST="reserve2,ihtml> 

<REM — Appends the information passed from "reseve1.ihtml"to "reserve2.ihtml"for 

process. Other html information is also passed. — > 

<iFILENAME="reserve2.ihtml"DATA=":newseats"0P="append"> 

<iFILENAME="reserve2.ihtml"DATA="<INPUTTYPE='hidden' NAME='total' 

VALUE=:total>"OP="append"> 

<iFILENAME="reserve2.ihtml"DATA="</F0RM>"0P="append"> 
<iFILENAME="reserve2.ihtml"DATA="</CENTER>"0P="append"> 
<iFILENAME="reserve2.ihtml"DATA="<P>"0P="append"> 
<iFILENAME="reserve2.ihtml"DATA="</B0DY>"0P="append"> 
<iFILENAME="reserve2.ihtml"DATA="</markuplanguage>"0P="append"> 
<REM — Once the information is appended into "reserve2.ihtml", it will be automatically 
push the page "reserve2.ihtml" to the browser. — > 

<iREDIRURL="reserve2.ihtml"> 
which then combines information and passes to: 
<Markuplanguage> 

<REM — Imports the file "datasource.inc" which creates the variable "datasource" which is 
used to tell Markup language which ODBC datasource to connect to. — > 



FIG. 5 

(CONT.) 
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<ilNCLUDENAME="database\datasource.inc"> 

<REM — In case a database or other type of error occurs, this will display the error 

message. - > 

<ERROR> 

<FONT FACE='Verdana,Arial" SIZE="+1"><B>An Error Has Occurred</B></FONT><P> 
<FONT FACE='Verdana,Arial" SIZE="-1"><B>Error Message = 
:Lerrortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:idatabaseerrortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:i_databaseerrorstmt</B></FONT><P> 

</ERROR> 

<REM — Copy a preformatted file, "empty.ihtml" into a new file, "reserve2.ihtnil". — > 

<iC0PYFILESRC="empty.ihtml"DST="reserve2.ihtmr> 

<REM Appends the information passed from "reseveUhtml" to "reserve2.ihtml"for 

process. Other html information is also passed. — > 

<iFILE NAME="reserve2,ihtml" DATA=":newseats"OP="append"> 

<iFILE NAME="reserve2,ihtml" DATA="<INPUT TYPE='hidden' NAME='total 

VALUE=:total>"OP="append"> 

<iFILE NAME="reserve2,ihtml" DATA="</FORM>" OP="append"> 

<iFILE NAME="reserve2,ihtml" DATA="</CENTER>" OP="append"> 

<iFILE NAME="reserve2,ihtml" DATA="<p>" OP="append"> 

<iFILE NAME="reserve2,ihtml" DATA="</BODY>" OP="append"> 

<iFILE NAME="reserve2,ihtml" DATA="</markup language>" OP="append"> 

<REM — Once the information is appended into "reserve2,ihtml", it will be automatically 

push the page "reserve2,ihtml" to the browser, 

<iREDIRURL="reserve2,ihtml"> 

then (takes all information from index & reserve one and conbines it to with the information 
in empty) then passes to: FIG' 

(CONT.) 
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<! Markup language> 

<REM — Imports the file "datasource.inc" which creates the variable "datasource" which is 
used to tell Marl(up language which ODBC datasource to connect to. — > 
<ilNCLUDENAME="database\datasource.inc"> 

<REM -- In case a database or other type of error occurs, this will display the error 

message. -- > 

<ERROR> 

<FONT FACE='Verdana,Arial" SIZE="+1"><B>An Error Has Occurred</B></FONT><P> 
<FONT FACE='Verdana,Arial" SIZE="-1"><B>Error Message = 
:i_errortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:i_databaseerrortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

i_databaseerrorstmt</B></FONT><P> 

</ERROR> 

<REM — Begin normal markup language here — > 

<markup language> 

<HEAD> 

<TITLE>Ticketing & Reservation System - Customer lnformation</TITLE> 
</HEAD> 

<BODY BACKGROUND="images/background.jpg" TEXT="#000000" LINK="#006666" 
VLINK='*006666"> 

<REM Get Customer Info > 

<CENTER> 

<TABLEBGCOLOR='#000000' BORDER=0 CELLPADDING=5 CELLSPACING=0 

WIDTH=500> 

<TR><TD><CENTER> 

<FONT FACE='Verdana,Ariar SIZE=+1 COLOR='#FFFFFF><B> 

Ticketing & amp; Reservation System FIG. 5 

(CONT.) 
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</B></FONT> 

</CENTER> 
</TD></TR> 
</TABLE><p> 

<FORM ACTI0N=reserve3.ihtml METHOD=POST> 
<TABLEBGCOLOR='#000000' BORDER=0 CELLPADDING=0 CELLSPACING=0> 
<TR><TD> 

<TABLEBGCOLOR='#FFFFFP BORDER=0 CELLPADDING=5 CELLSPACING=1> 
<TR> 

<TD C0LSPAN=2><CENTER><F0NT FACE='Verclana,Arial' SIZE=- 
1 ><B>CUSTOM ER INFORM ATION</CENTER></TD> 
</TR><TR> 

<TD><FONT FACE='Verdana,Ariar SIZE=-1><B>Name as appear on 
CC</B></FONT></TD> 

<TD><FONT FACE='Verclana,Arial' SIZE=-1><B><INPUT TYPE="text" 
NAME="name" MAXLENGTH=50 SIZE=40></B></FONT></TD> 

</TR><TR> 

<TD><FONT FACE='Verdana,Arial' SIZE=-1><B>Phone</B></FONT></TD> 
<TD><FONT FACE='Verdana,Arial' SIZE=-1><B><INPUT TYPE="text" 
NAME="phone" MAXLENGTH=50 SIZE=12></B></F0NT></TD> 
</TR><TR> 

<TD><FONT FACE='Verdana,Arial' SIZE=-1><B>Email</B></F0NT></TD> 
<TD><FONT FACE='Verdana,Arial' SIZE=-1><B><INPUT TYPE="text" 
NAME="email" MAXLENGTH=50 SIZE=40></B></FONT></TD> 
</TR><TR> 

<TD><FONT FACE='Verdana,Arial' SIZE=-1><B>CC Number</B></FONT></TD> 

<TD><FONT FACE='Verdana,Arial' SIZE=-1><B><INPUT TYPE="text" 

NAME="ccnum" MAXLENGTH=50 SIZE=40></B></FONT></TD> 

</TR><TR> FIG. 5 

(CONT.) 
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<TD><FONT FACE='Verdana,Arial' SIZE=-1><B>Expiration 
(MM/YY)</B></FONT></TD> 

<TD><FONT FACE='Verclana,Arial' SIZE=-1><B>Month <INPUT TYPE="text" 
NAME="ccmexp" MAXLENGTH=50 SIZE=2> / Year <INPUT TYPE="text" NAME="ccyexp" 
MAXLENGTH=50 SIZE=2> ... example: 12/99</B></FONT></TD> 

</TR><TR> 

<TD C0LSPAN=2> 

<CENTER> 

<FONT FACE='Verdana,Arial' SIZE=-1><B> 
<INPUT TYPE="submit" VALUE="Reserve Seats"> 
<BR> 

<INPUT TYPE="reset" VALUE="Clear Choices"> 
</B></FONT> 
</CENTER> 
</TD></TR> 
</TABLE> 

</TD></TR></TABLE> 

<iEQNAME=1otal"VALUE=0> 

<iEQNAME="clate"VALUE='<iDATE>'> 

<REM — Begin database command to insert a new customer profile into the database. This 
step is primarily for the purpose of obtaining a new customer id to associate this transaction. 
The customer's ip and captured and inserted into a new record in the "customers" table. 
The marker, "new" is flagged "true" for the attrieval of the new id. Once the new customer id 
is captured, the marl<er "new" is turned off. — > 

<Marl<up language DBNAME=:datasource 

database="INSERT INTO customers (ip, new) 

VALUES (':ijp',1)"> 
<database DBNAME=:datasource 

database="SELECTid 



FIG. 5 

(CONT.) 
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FROM customers 
WHERE new=1"> 
<databaseFETCH> 
<iEQNAME="custid"VALUE=:1> 
</database> 

<Markup language DBNAME=:datasource 
database="UPDATE customers 
SET new=0 
WHERE id=:custid"> 

<REM — Begin database command to insert a new reservation into the database. This step 
is primarily for the purpose of creating a new reservation record, flagged with the newly 
obtained customer id, so that the transaction information may be processed in 
"resereS.ihtml". -> 
<Markup language DBNAME=:datasource 

database="INSERT INTO orders (orderdate, approvalcode, receiptnum, totalcharge, 

custid) 

VALUES (':date','0000', '0000', :total,:custid)" 
FAILURE='The order could not be processed at this time due to technical difficulties."> 
<REM — Begin database command to obtain the reservation id that was just created. This 
information, coupled with the customer id, will be used to identify this particular transaction 
in the database and be updated in "resere3.ihtml" — > 

<database DBNAME=:datasource 

database="SELECTmax(id) 

FROM orders"> 

<databaseFETCH> 

<iEQNAME="oid"VALUE=:1> 
</database> 

<INPUT TYPE="hidden" NAME="reserve" VALUE="receipt"> 

<INPUTTYPE="hidden"NAME=custidVALUE=:custid> FIG. f 

(CONT.) 
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<INPUT TYPE="hiclden" NAM E=phone VALUE=:phone> 

<INPUTTYPE="hidden" NAME=email VALUE=:email> 

<INPUTTYPE="hidden" NAME=oid VALUE=:oid> 
<Markup language DBNAME=:datasourcedatabase='INSERT INTO basket (custid, pid, qty) 
VALUES (:custid, 6431, 1)'><database DBNAME=:datasourcedatabase='SELECTcost 
FROM products WHERE id=6431'><databaseFETCH><iEQ NAME='ticketprice' 
VALUE=:1></database><iEQ NAME='total' VALUE=<iEVAL EXPR=':ticketprice + :total' 
PREC- 2'»<Markup language DBNAME=:datasource database- INSERT INTO orderdetail 
(pid, old, qty, sell) VALUES (6431, :oid, 1, :ticketprice)'><Markup language 
DBNAME=:datasource database='INSERT INTO basket (custid, pid, qty) VALUES (:custid, 
6428, 1)'><database DBNAME=:datasource database='SELECTcost FROM products 
WHERE id=6428'><databaseFETGH><iEQNAME='ticketprice' 
VALUE=:1></database><iEQ NAME='total' VALUE=<iEVAL EXPR=':ticketprice + :total' 
PREC- 2'»<Markup language DBNAME=:datasource database- INSERT INTO orderdetail 
(pid, aid, qty, sell) VALUES (6428, :oid, 1, :ticketprice)'><Markup language 
DBNAME=:datasource database='INSERT INTO basket (custid, pid, qty) VALUES (:custid, 
6429, 1)'><database DBNAME=:datasource database='SELECTcost FROM products 
WHERE id=6429'><databaseFETCH><EQ NAM E='ticketprice' 
VALUE=:1></database><iEQ NAME='total' VALUE=<iEVAL EXPR=':ticketprice + :total' 
PREC- 2'»<Markup language DBNAME=:datasource database- INSERT INTO orderdetail 
(pid, oid, qty, sell) VALUES (6429, :oid, 1, :ticketprice)'><Markup language 
DBNAME=:datasource database='INSERT INTO basket (custid, pid, qty) VALUES (:custid, 
6430, 1)'><database DBNAME=:datasource database='SELECTcost FROM products 
WHERE id=6430'><databaseFETCH><iEQNAME='ticketprice' 
VALUE=:1></database><iEQ NAME='total' VALUE=<iEVAL EXPR=':ticketprice + :total' 
PREC- 2'»<Markup language DBNAME=:datasource database- INSERT INTO orderdetail 
(pid, aid, qty, sell) VALUES (6430, :oid, 1, :ticketprice)'><INPUT TYPE='hidden' 
NAME='total'VALUE=:total></FORM></CENTER><P></BODY></markuplanguage> 
takes in credit card information and passes to: F I C 
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<! Markup language> 

<REM — Imports the file "datasource.inc" which creates the variable "datasource" which 
is used to tell Markup language which ODBC datasource to connect to. 
<ilNCLUDENAME="database\datasource.inc"> 

<REM -- In case a database or other type of error occurs, this will display the error 

message. - > 

<ERROR> 

<FONT FACE='Verdana,Arial"SIZE="+1"><B>An Error Has Occurred</B></FONT><P> 
<FONT FACE='Verdana,Arial" SIZE="-1"><B>Error Message = 
:i_errortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:i_databaseerrortext</B></FONT><P> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B>database Error = 

:i_databaseerrorstmt</B></FONT><P> 

</ERROR> 

<REM — Begin normal markup language here — > 

<markup language> 

<HEAD> 

<TITLE>Ticketing & Reservation System - Confirmation</TITLE> 
</HEAD> 

<BODY BACKGROUND="images/background.jpg"TEXT='^000000"LINK='*006666" 
VLINK='W006666"> 

<REM — Checks to see if the instance "reserve" with a value of — > 
<REM — "receipt" is passed to this page. If so, the codes within - > 
<REM — the iCASE and /iCASE tags are executed. This is primarily — > 
<REM — for security purposes as the instanced "reserved" is only — > 
<REM — called in the step immediately before, If a visitor — > 
<REM — accidentally stumbled upon this file, nothing will be run — > 

<REM — unless all previous steps are completed. -> FIG. 5 

(CONT.) 
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<iCASE ALIAS="reserve" VALUE="receipt"> 
<CENTER> 

<TABLEBGCOLOR='#000000' BORDER=0 CELLPADDING=5 CELLSPACING=0 

WIDTH=500> 

<TR><TD> 

<CENTER> 

<FONT FACE='Verclana,Arial' SIZE=+1 COLOR='#FFFFFP><B> 

Concert Reservation System 

</B></FONT> 

</CENTER> 

</TD></TR> 

</TABLE> 

</CENTER><p> 

<REM — Two steps are combined here: — > 

<REIV1 — 1 , The reservation information captured in — > 
<REIVI — "reserve2.ihtml" is passed to the iPAY tag which — > 
<REIVI — processes the information and passes it to CyberCash — > 
<REIVI — for verification, If successful, the tag returns — > 
<REM — "success", otherwise it returns a variation of "fail" — > 
<REM — 2. ilF checl<s to see if the verification is a success or — > 
<REM — failure. If successful, it will process the codes — > 
<REM — immediately after it, which includes updating the — > 
<REM — database with a successful reservation. If anything — > 
<REM — other than "success" is returned, ilFwill skip to — > 
<REM — the iELSE tag and execute all codes thereafter. — > 
<ilFC0ND=<iPAYSERVER="C3" 

amount=:total 

id=:oid 

ccnum=":ccnum" 



FIG. 5 

(CONT.) 
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ccmexp= .ccmexp 
ccyexp=":ccyexp" 
name=":name" 
capture="false" 

HOST="http://cr.cybercash.com/cgi-bin" 
PORT=80 

SECRET="vendorid-26" 

CRYPTOKEY="j1y1o1ohNU1 ciTdPFI hsvHFjlpnCpR"» 

<CENTER> 

<TABLEBGCOLOR='#000000' BORDER=0 CELLPADDING=0 CELLSPACING=0> 
<TR><TD> 

<TABLEBGCOLOR='#FFFFFP BORDER=0 CELLPADDING=5 CELLSPACING=1 

WIDTH=500> 

<TR><TD> 

<F0NTFACE='Verdana,Arial"SIZE="-1"> 

<B>The credit card has been approved and the reservation has been processed. <P> 

The following are the Authorization Code and Receipt Nuniber:</B><p> 

<b>Authorization Code:</b> :i_pay_authnuniber<BR> 

<b>Receipt Number: </b> :ipay_transactionnumber<P> 

<b>Customer Name:</b> :name<BR> 

<b>Total Amount:</b> $:total<BR> 

<b>Credit Card Number:</b> :ccnum<BR> 

<b>Month of Expiration:</b> :ccmexp<BR> 

<b>Year of Expiration:</b> :ccyexp<BR> 

<REM — Begin database query to update the "customers" table with customer information 
captured in "reserve2.ihtmr'. — > 
<Markup language DBNAME=:datasource 

database="UPDATE customers - 

FIG ' 

SETcontact=':name', phone=':phone, email- :emair ' * 

(CONT.) 
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WHERE id=:custid"> 

<REM — Begin database query to update the "orders" table is updated with the approval 
code returned by CyberCash, as well as the transaction information (total charge, credit 
card number, etc). — > 

<Markup language DBNAME=:datasource 

database-'UPDATE orders 

SETapprovalcode-:i_pay_authnumber', 
receiptnum- :i_pay_transactionnumber', totalcharge=:total,cc-:ccnum',ccm- :ccmexp', 
ccy=':ccyexp' 

WHERE id=:oid" 
FAILURE="The information was not saved correctly.<br>"> 
<REM — Begin database query to turn off the availability of the seats that have been 
reserved by setting the "active" attribute of the seats to "0". — > 

<database ALIAS="markoff' dbname=":datasource"database="SELECT pid FROM 
orderdetail WHERE oid=:oid"> 

<databaseFETCH ALIAS="markoff"> 
<iWHILENOTALIAS=i_databaseempty> 

<Markup language dbname=":datasource" 
database- 'UPDATE products 
SETactive=0 

WHERE id=:markoff_pid"> 
<databaseFETCH ALIAS="markoff > 
</iWHILEALIAS=i_databaseempty> 
</databaseALIAS="markoff"> 
</FONT> 
</TD></TR> 
</TABLE> 
</TD></TR> 

</TABLE> no. i> 

(CONT.) 
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</CENTER><p> 

<iELSE> 

<CENTER> 

<TABLEBGCOLOR='#000000' BORDER=0 CELLPADDING=0 CELLSPACING=0> 
<TR><TD> 

<TABLEBGCOLOR='#FFFFFP BORDER=0 CELLPADDING=5 CELLSPACING=1 

WIDTH=500> 

<TR><TD> 

<FONT FACE="Verdana,Arial" SIZE="-1"><B> 

This transaction could not be processed by Cyber Cash at this time. Bther the Credit Card 

Information was invalid or the Cyber Cash server is currently not available. 

</B></FONT> 

</TD></TR> 

</TABLE> 

</TD></TR> 

</TABLE> 

</CENTER> 

</ilF> 

<FORM ACTION="index,ihtml" METHOD="post"> 
<CENTER> 

<TABLE BGCOLOR='#000000' BORDER=0 CELLPADDING=0 CELLSPACING=0> 
<TR><TD> 

<TABLEBGCOLOR='#FFFFFP BORDER=0 CELLPADDING=5 CELLSPACING=1 

WIDTH=500> 

<TR><TD> 

<CENTER> 

<FONT FACE="Verdana,Arial" SIZE="-1"><B> 
<INPUTTYPE="submit"VALUE="Return to Concert Selection^ 

</B></FONT> rlla. O 

(CONT.) 
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</CENTER> 

</TD></TR> 

</TABLE> 

</TD></TR> 

</TABLE> 

</CENTER> 

</FORM> 

<FORM ACTION="http://clomainname/filename" METHOD="post"> 
<CENTER> 

<TABLE BGCOLOR= 000000' BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR><TD> 

<TABLEBGCOLOR='#FFFFFF BORDER=0 CELLPADDING=5 CELLSPACING=1 

WIDTH=500> 

<TR><TD> 

<CENTER> 

<FONT FACE='Verdana,Arial" SIZE="-1"><B> 

<INPUTTYPE="submit"VALUE="Return to On-Line Ticketing & Reservation Front des\C> 
</B></FONT></CENTER> 

</TD></TR><TTABLE></TD></TR></TABLE></CENTER> 
</FORM> 

</CASEALIAS="reserve"> 
</BODY> 

</markup language> 
which verifies and confirms payment information 



FIG. 5 
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